compute_det_myscore <- function(grouped_df, show_pb, pb_env, opts) {
fun <- function(x, y, opts, show_pb, pb_env) {
res <- (x / y) * opts$myopt
tick_progress(show_pb, pb_env)
res
}
dplyr::summarize(
grouped_df,
myscore = fun(.data$fcst, .data$obs, opts, show_pb, pb_env)
)
}